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INTRODUCTION 


With this book and your Timex Sinclair 1000® or 
1500®, you’re set for a number of adventures. Despite 
their small size, the T/S 1000 and 1500 are computers 
of quite immense power, and this book contains 51 pro- 
grams designed to show you just how great that power 
is, and how flexible your new computer can be. Note 
that for most of the games in this book you will need 
the Timex 16K expander. 

The programs are divided into six sections: 

* Moving graphics games 

¢ Driving games 

* Board games and simulations 

¢ Card games 

¢ Brain games 

* Word and letter games 

The section headings alone give some idea of the 
flexibility of the computer, and of the exciting range of 
programs in this book. We’ve got a wide range of games 
for you, from Dragon’s Gold, Breakout, and Galaxy Pa- 
trol, to Checkers Seven, Fastermind, and Tic Tac Toe. 
The programs all contain ideas that you can adapt and 
use to enhance your own programs. 

Games are great fun, and are one of the reasons that 
personal computers are as popular as they are today. 


Moving 
Graphic Games 


PROTECTOR 


In this program, you are given the task of protecting 
a defective part of the force field guarding earth. A 
difficult task indeed. Certain aliens, who do not have 
kindly thoughts about dear old peace-loving (!) Earth, 
have also detected the weak spot in our defenses, and 
try to break through the field. 

The field can stand one attack on any part, but this 
weakens that part. Any weak section which receives a 
second hit causes the collapse of the field and so leaves 
earth defenseless. The field will also collapse under the 
strain of having more than nine weak spots along its 
length. 

Your task is to block the attacks with your craft. 
You can restore any weakened part of the field directly 
below you by pressing F. The 5 and 8 keys control your 
motion, moving you in the direction of the arrows on 
those keys. 

There are five skill levels, with level 1 the easiest. 
Since the first few levels are really only for practice, 
the scoring system is biased toward the higher and 
harder levels. Failure, ’m afraid, is inevitable, because 
the aliens continually speed up their attacks if the pre- 
ceding waves fail. Your score is given at the end of the 
game, along with the option of a second or subsequent 
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game. Pressing N at the end will end the game. Pro- 
tector was written by Paul Toland. 
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GROUND-TO-AIR 


MISSILE 


You have ten ground-to-air missiles (GAMs) under your 
command. Your job is to destroy the alien ships (which 
resemble Terran letter V’s) before they land on Earth 
and destroy it. If they land, the game is over, and the 
number of ships you destroyed is shown in the top left- 
hand corner of the screen. The 1 key moves you left, @ 
moves you right, and 2 moves you up the screen. You 
must get the + in front of the advancing V’s to stop 
them. The screen clears after each successful hit, and 
at the end of the game. Ground-to-Air Missile was writ- 
ten by Aidan Walsh and Kevin McCarthy, Cork, Ire- 
land. 
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BREAKOUT 


In Breakout, you control the bat on the left-hand side 
of the screen using the 6 and 7 keys to move your bat 
in the direction shown by the arrows on the keys, to 
try and keep the ball in the “court.” The aim is to 
demolish as much of three walls as possible. Walls far- 
ther back give higher scores. You are allowed five balls 
in each game, and a score over 2000 gives a new game. 
The game is limited, to some extent, by the speed of 
the computer. You need to type in LET H = @ before 
you run the program to set the high score counter, then 
start the program by entering GOTO 5, rather than 
RUN. If you save the program after you’ve played it, 
then start running it with GOTO 5, the old high score 
will automatically be your target for the new game. 
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A long bar is printed on the screen, starting from a 
random position. A projectile then makes its way across 
the screen from the left. When you think the projectile 
is over the hole in the bar, press a key. If you're right, 
you'll get a point. You'll be pleased to see how your 
skill at this program improves as you continue. Zoomer 
was written by Nick Wilson. 
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THUNDERBOLT 


You are the gunner on a ground-station outpost, and 
it is your mission to stop spy planes from flying over 
you. The computer is your monitor (it is good to see 
how much the U.S. Government is willing to invest in 
protecting the country), and on the monitor you see the 
planes, and your ten missile launchers. 

As the enemy planes fly over, you have to press the 
number on the missile that you want to fire. The missile 
then zips up the screen, either destroying the enemy 
or totally missing, depending on your skill. 

There are two extra features which make it difficult. 
The plane keeps moving after you’ve fired, so you really 
have to fire in front of it to score a hit, and the missiles 
are not reloaded until you manage to bring down one 
of the enemy. You can change line 100 to any design 
you like, as long as there’s a space at the start, and a 
graphic H in the middle. The game is simplified if you 
add more graphic H’s to the design. Thunderbolt was 
written by Nick Wilson. 
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In Surge, written by Tim Rogers, your ship (the §) is 
somewhere out near a strange asteroid belt. The as- 
teroids are slabs. Your ship has a shield, so the aster- 
oids cannot destroy your ship. The only problem is that 
you get pushed up the screen by any slabs you come in 
contact with. The aim of the game is to stay on the 
screen for as long as possible. The lower down you are, 
the more points you score. 

The machine-code routine in the REM statement 
takes the place in line 80 of the BASIC line IF PEEK 
(PEEK 16398 + 256 * PEEK 16399). There are seven 
characters after the REM, and in decimal they are 42, 
14, 64, 78, 6, 0 and 201. All but CHRS 78 can be entered 
from the keyboard; 78 has to be POKED, by line 10. 
You move your ship to the right by pressing any key, 
and it drifts left when you release the key. 
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PUSSY-GET 


If you are a cat reading this, you’re hereby given per- 
mission to change the program to Human-Get. Your 
job is to drop seven weights (printed across the top of 
the screen) onto six cats which run across the bottom 
of the screen, one after another. If you press the keys 
2 to 7, the corresponding weight will drop and the cat 
will stop running until the weight hits it, or sails on 
past. If the weight misses the cat, the frisky feline will 
flee. However, if it gets smashed by the weights, it will 
turn into a cross. Some heavy symbolism is in order 
here, as you can tell. The game can be made more 
difficult by removing lines 330 and 370, which speeds 
up the game, but in so doing, it removes the checks on 
human cheating. Pussy-Get comes from Nick Wilson. 
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In this program, you must guide your snake, using the 
5, 6, 7, and 8 keys, toward the $’s in order to grow. You 
move in the direction of the arrows on those keys. 

You must not hit the walls or yourself. The $’s are 
on the screen for a limited time only, so you must rush. 
The aim of the game is to make your snake grow as 
long as you possibly can. Even though this game is in 
BASIC, it is very fast, thanks to some clever string 
handling. The game was written by Paul Toland, whose 
best score to date is 55. Can you beat that? 

At the end of a game, you get a new game by just 
pressing ENTER, and stop by pressing N then EN- 
TER. 
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PHARAOH’S REVENGE 


This is an early Egyptian version of the “city bomb” 
type of program, in which you fly over a city, leveling 
skyscrapers in front of you with bombs dropped from 
your plane. 

In this game, you’re flying (on a magic carpet?) over 
a pyramid, and you have to try and destroy as little of 
it as possible, while aiming for a spy (a Phoenecian 
merchant who has not paid his transit taxes or spice 
import duty) hiding in the base of the pyramid. Press 
any key to drop a bomb onto the pryamid. You can 
make the game easier by adding 1065 LET G = SIN 
PI. Pharaoh’s Revenge was written by Nick Wilson. 
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DROPPER 


In this intriguing game from Nick Wilson, you have to 
fill a glass of water with stones as quickly as possible. 

You'll see the glass, full of water, printed on the 
screen when you press RUN. There is a barrier along 
the top of the screen, and the stones move along the 
bottom of it. 

When you think a stone is above the glass, press any 
key, and the stone will start to fall. If it lands outside 
the glass, another stone will appear, so you can have 
another try. If, however, the stone falls into the glass, 
it will fall to the bottom, or rest on top of another stone. 
When you've filled two complete rows along the bottom, 
the game will be over, and you'll be told how many 
stones it took you to fill it. If you’d like to fill three 
rows before the game ends, change line 240 to: 
IF K = 19 OR K = 18 OR K = 17 THEN LET 
S=S+1. 
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SPACE DOCKER 


From deepest space comes Space Docker, which simu- 
lates the docking of two spaceships. You'll see the hulls 
of the two ships on the screen, with your ship on the 
right, and an enemy ship on the left. You line your 
docking tube up with that of the other ship, using the 
2 and Z keys, and pressing P when you think you’ve 
docked. This sounds simple, but there is a catch (as 
usual). The enemy’s docking tube (an inverse space, 
just like yours) is moving in random up and down steps 
in an attempt to stall you, so you need to be reasonably 
quick on the keyboard finger to change directions as 
the other docking tube is doing. There’s also a time 
limit working against you. If you don’t dock quickly 
enough, the enemy ship will blow up, and take your 
ship with it. 

At the end of the game, you'll receive a rating, de- 
pending on how well you did. All the graphics in the 
program are from the H key. 

Nick Wilson wrote Space Docker. 


i@ REM SPACE-DOCKER 
12 REHM NICK ILSOH 
42 LET 3-8 
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GALAXY PATROL 


Galaxy Patrol places you in command of a galactic pa- 
trol ship, which bears an uncanny resemblance to the 
letter V. 

Your V-wing fighter starts with 50 gallons of fuel, 
which slowly decreases. The amount of fuel left is shown 
in the top right of the screen (in the screen printout 
the fuel figure is 33). 

You refuel your fighter by hitting any of the random 
fuel dumps (inverse spaces). Each time you run through 
a fuel dump, you get 25 gallons. You control your craft 
by touching the M key. Holding down the M moves 
your craft right; leaving the keyboard untouched allows 
your craft to drift sideways. The game ends—and your 
score is displayed— when you either run out of fuel or 
hit an asteroid (asterisk). 

Line 130 looks at the- PRINT position (set by the 
last PRINT AT in line 110), and if it finds a 23 (as- 
terisk) there stops the game, printing the score (S) and 
using an unassigned variable (D) to halt the game. If 
it finds a 128, the computer knows you are running 
into a fuel dump, so the fuel is incremented by 25 (LET 
F = F + 25). Line 145 stops the game if you’ve run 
out of fuel (that is, if F = @). 
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Galaxy Patrol was written by R. Stubbs, based on a 


program by Tim Hartnell. 
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SEA RAIDER 


This program is from Martin Frobisher, and it is more 
difficult to play than might be thought at first. In Sea 
Raider, you have to try to destroy a battleship by bomb- 
ing it with your plane as you fly over. To make this 
more difficult, you fly twice as fast as the ship, and 
from time to time are buffeted by winds, increasing 
your speed even more. 

You have 20 bombs in this version of the game, but 
you can easily change this by changing the value as- 
signed to M in line 10. You fire by pressing F. You do 
not see anything fall from the plane, but if you hit it, 
you are rewarded by a rather odd explosion on the ship, 
which is immediately, miraculously, restored and con- 
tinues on its tireless trip from left to right. There is a 
time limit of 300 seconds, and this is reduced steadily 
while the game is progressing, although you only see 
a new “reduced” figure every so often. The game ends 
when you run out of bombs or out of time. The maxi- 
mum possible score is 5340, but it is practically im- 
possible to get this within the time. 
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BALLOON BUSTER 


Moving left and right at the bottom of the screen, you 
fire upward at a row of balloons, floating against the 
ceiling. You have to try to burst them all. You move 
using the @ key for right, the 1 key for left. 

This sounds pretty simple, until you discover that if 
an empty space is fired into, another balloon appears, 
thus ensuring it will take longer to burst them all. You 
have no control over your firing rate, which complicates 
matters even further. To alter the frequency of fire, 
change the .91 in line 125. 

You can change the number of balloons at the start 
of the game, by altering the 9 in lines 13 and 50. The 
balloons can be changed to any character you like, pro- 
viding that you change the 52 in line 190 to the code 
of the character chosen. Nick Wilson is the author of 
Balloon Buster. 
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| LOVE THE SOUND 


OF BREAKING GLASS 


The object of this game is to protect a plate-glass win- 
dow from projectiles which are being hurled at it. You 
do this by moving yourself up or down, by pressing the 
2 or Z keys. If the ball hits you, it vanishes, and an- 
other one appears in its place. If you let the ball past, 
it will smash the window and your score will be given. 
You can make the game simpler by adding a few delay 
loops to slow it down. I.L.T.S.0.B.G. was written by 
Nick Wilson. 
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LETTER CHASER 


Let your @ run around the screen, to “run over” the 
letters you see in alphabetical order. You enter your 
speed setting for the game (from 1 to 5) and then use 
the 5 and 8 keys to move in the direction indicated by 
the arrows on those keys. The game ends if you hit a 
letter out of sequence. Pressing ENTER at the end will 
give you a new game, while N then ENTER will stop 
the program. You'll find yourself returning to this game, 
time and again, trying to complete it successfully. Let- 
ter Chaser was written by Paul Toland. 
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JET FIGHTER 


You are the pilot of a defender jet. You must line up 
the enemy plane (a @) in your sights, using the 5, 6, 7, 
and 8 keys, moving in the direction of the arrows on 
those keys. You destroy it by pressing the F key. 

However, the enemy jet does not just sit there wait- 
ing for you to destroy it. You have to cope with its 
somewhat random evasive movements. Since you can 
only control your own plane, the enemy plane will ap- 
pear to move in the direction opposite to the one you 
press. 

The game, as listed, is at the beginner’s level. The 
speed is dramatically increased if you remove line 160, 
the time display. You press ENTER at the end for a 
new game, or N then ENTER to stop. Jet Fighter was 
written by Paul Toland. 
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You are trying to prevent the ubiquitous aliens from 
landing (the story of our lives). 

They can descend in any one of three directions, 
straight down or diagonally down from the right or left. 

You must position your craft using the 5, 6, 7, and 
8 keys (moving in the direction of the arrows on those 
keys), and fire your missile using F so that the missile 
intersects the alien’s descent path. 

Blocking the alien with your craft will have no effect. 
At the start of each game, you are asked for a difficulty 
level (@ to 5), with @ as the easiest level. The aim of 
this game, as you have probably guessed, is to prevent 
a landing for as long as you can. You press ENTER to 
get a new game, or N then ENTER to stop. Zap was 
written by Paul Toland. 
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AVOID 


Direct your ever-growing snake, using 5, 6, 7, and 8, 
so that it avoids the surrounding box, its own trail, and 
the + signs. It is allowed to hit five of the pluses before 
the game ends. Since each move decreases the space 
available, it is advisable to develop some movement 
tactics. The object of the game is to last as long as 
possible, and your time is given at the end of the game. 
Press ENTER for a new game, or N then ENTER to 
stop. Avoid was written by Paul Toland. 
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CENTROPOID 


This is similar to Avoid only much more frantic. You 
(the checkered block) travel around the screen, hitting 
the asterisk while avoiding the solid blocks. You must 
hit all 10 of the asterisks before the game ends. When 
(or if) you’re successful, your time is given. 

Again motion is controlled by 5, 6, 7, and 8, and you 
get a new game by pressing ENTER, and stop by en- 
tering N then ENTER. Centropoid was written by Paul 
Toland. 
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TOAD IN THE HOLE 


Your task is to steer a “toad” (reincarnated, it appears, 
as an inverse asterisk) into its hole. You'll see the ground 
and hole near the bottom of the screen, and the toad 
will begin a rapid descent from the top. The @ key moves 
your toad right, the 1 key moves it left. Once the toad 
reaches ground level, and depending on whether or not 
you got it home, you'll be given a score. You can alter 
the skill level by changing the size of the hole, playing 
around with the values in line 80. The graphic char- 
acter in line 90 is from the H key. Lines 15 to 100 print 
the ground and hole, the routine from 110 to 205 moves 
the toad, and lines 300 to 340 print out the score and 
final message. Toad in the Hole was written by Nick 
Wilson. 
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MINEFIELD 


In this game you are commander of a tank. Before you 
lies an enemy minefield through which you must pass. 
Can you do it? The allied forces are counting on you. 

When you run the program the computer will gen- 
erate a minefield—a different one each time you play. 
Drive your tank across the screen, using keys 5 through 
8. 

If you hit a mine, your tank blows up and you lose. 
Pass safely through the minefield and you’ve won. 

To input the program, first enter lines 1 through 45 
as shown below: 
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Next, run this short subroutine. After running it, 
list the program and examine line 1. It should appear 
as follows: 
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Now delete lines 5 through 45 and enter the re- 
mainder of the program, (starting at line 2). 
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DUCK SHOOT 


A number of strange little ducks fly overhead, some 
from right to left, and the others in the opposite direc- 
tion. In this game by Peter Shaw your goal, needless 
to say, is to shoot down the ducks. 

You move your shooting base from right to left using 
the 8 and 5 keys, to move in the direction shown by 
the arrows on those keys. You fire by pressing the @ 
key. At the end of a round (when all the ducks have 
been shot) you'll be given a “marksman rating.” There 
is a high-score feature, so you can try to better your 
rating from round to round. The rating is related to the 
number of shots it took you to kill all the ducks. There 
is a slight pause after one round, before a new one 
begins automatically. 
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WAGONER’S WALK 


This amusing program, which combines a race/bet 
theme with graphics, was written by Stephen Ormrod. 
You start the game with 20, and are attending a race 
meeting between four rather worn-out wagons. You see 
the wagons before the race, and can bet on one of them 
to win. 

Lines 10 to 40 briefly explain the rules, while lines 
50 to 250 initialize the graphics. The shapes are held 
in a string array, A. The wagons are displayed “in the 
paddock” by the routine from line 480 to line 570. Lines 
480 to 815 deal with your bet. The maximum bet is 
either your credit level or $10, whichever is lower. The 
computer will not accept larger bets than this, nor will 
it accept bets lower than $1.00, or bets made on wagons 
which don’t exist. 

T'll leave you to see lines 820 to 905 in action, rather 
than explain them here. The four lanes are printed out 
by the routine from 1000, which also prints the start 
and finish lines, plus the wagons. The race itself is run 
by the lines 1158 to 1210. It will take a few minutes 
for a race to be run, and once it has, the screen will fill 
with the checkered flag, and a “bank statement” will 
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appear. You'll be given the chance of betting on another 


race, or of quitting with your winnings. 


= Wt OHS Son # 
tc 0 kein co 4 
TI mo # 
! [se A m z 
Mi Ws Co fe Ba 
a Wie pf ke # 
—! Te H a) tao: : 
2 a ft : # 
a “we = 2 a 8 
Zr H my # ui 
wt Hit - s Ea 
S th ee 2 im] 
2 wa : e iS 
Cc : a 2 
rf 22 Es 
m ; 
fa) 
r 


ted i Lr 


fal UTED RPE -EPE RFR EPR RE ERE OST GFE EEE ERR 
2 USEEEETECCr 
4 be e 
Uh fs 3 fs fo oe SEE fo f= fe fo fo fo fo 
Uae ad Md ed dU ad Ped ot HB 
Tee x BB ac] | eens 
a 


oeert: ZAC PWN CP a ood 
welded dred ed CC 


rl wl wl td cd cr 


57 


eee 4 
232 } 
243 i 
sees pe DRREERERE SEDER ED 
Lak. = 
BO PRINT AT F.,8; “WAGON: ', "BRU 


rm 


CATT CCAD CDC CARCI CEL OT CA OF 0) fe. 


3,8, C8,E8 
ae co 4 
8a B+H 8; HN ORG 
@5 To 31 (PENI 


D face pace 
Bs 
at 


ot CIE: 


HEM YOU HAWE SEEM 
iE, PRESS ; 


: 
Yer" C" THEN GoTo 56 


TOU Us 2 
TT: 


i 


HI 
“A 


SINT WU 


H-t 
Th 


Cn TIN Rs 


. 
TOT aT: 


fs) 
a 
el 
HOG 
ec 
wo iki; GO 
Ee HOT : Pl THIS ané E. FLE 
ASE’, GO TO CHEAT THE"," 
BOGE TES. 
SEG PRINT .. 
678 GOTO 822 
Fee CLS 
F1lG PRINT "YOU BACKED WAGON "UL 
ree PRINT °- iMRI LILL BE 
PLEASED" 
73a PRINT, BUT HOW MUCH £ Yo 
U WISH TO BETTI(LIMIT: &": 


? ae THEN PRINT CR, 
758 IF 2 THEN PRINT "18"; 


SAME PROCEDURE &@ 


| 


“Tt 


tn 
(eos ON BER 


WESOAPU ATE Fo SCN CAR Tha TH SSeS AT AS Sa TBAT 


GOTO 


Lea) 
Id J 
Lo ee 


m 
ye F 
GO TELL 
Bes Pp 
Ly ER 
ee G 
Bea F NUT BE GREEDY" 
eee 6 
Sig -F YOU HAVE ONLY 
a o ? x Ea 
Bi & 
é 


* BETTED" 
(ACE STARTS SHOR 
RS ARE TUNING 


ce TE OT 


vend n 


tee Gn 
Ca 
el 


sage 
Hone 


Th 
Ts m 


=m 
rife 


1 ae ee 


Irn rn 


Se he 


5a) ea 
2; BONUS 


44 


Cae 
o "l"IN LESS 
AN 32) 
ssa Go 
328 605 
sa5 cLs 
1@0@ FoR 1 STEP 5 
1@1@ PRI a; 6% 
1@i5 PRI .O;08 


TON, 
Bae 


baal +h can Ke ~ 
° T i. ir ro wa 
-_ a & : * me _ o 
Ga om ict] i bs : +t Jj 
wy = io SS om f- tr a 

— en - Wu von 

fim] fy oo: : = “ 

Ht 


3 


im 
k- 
i) 
ea) 


3A 
1 


iT 


: "TIME 
fRNDed) 41 
pe 


ty 


rut ahd 


i 


/ Ct 
“geeeeeeeeee YOU 


WED ed AES ed (Gt ed Ed ood 

Lt oe A 

bee ee FE ba EG bet be ee a med PE 
Be CIA er =. 

eee Ned mn " ae cae 


Erb bb Mb tb boom MLE Te mk ket Hp sk 
TI ob Pe fe Wd ee a 

= rm Leith pe a f= CE RTE 2e ot In RA oe Sg 
We bc (Dee Tent Eee i) itl $9 U0 Ceo BFR CE: cr re rat CO NE oe I LAE BE Le = ud Demers a ite Sc Ini wd SE 
SU SC ERASE SE oe a. eee CLL. SEC i So eo 
a om fb + 

Des oc” a DO a es eA a) et OS eS rit AS ESE Sa aoe os se 
ra a 

* 


at Be al CL 


rm 
iH 
i 
il 
+ 


ey 
a 
ME 
oF 
* 
5 
GK 
fT 
> 


Red UT Be Cd eh ot ULL he OA A A od Wri 
PEERS RSQ ded ed Seeder ced edd ied teed eddie le CUT UT eee ae i 
seed eed ed ered eb eed eed ed ered feet ced eed ed bic cede eed eter eidictbiededidcberdied bee redededed cbied oe 


u 
E 
R 
A 
I 
cb 
pad 
ci 


“Ss 


“OUR 
ta 
f 
E 


rm 
2 ” r wa zz = or F: 
- oE os EF oa a = (2 
ar ra 
~ * - a 
L 


co 
WOU 
YOUR HUSBAND 
I 


you 
A 
Ir" hy 
5 
o 


-BUT 
i 


& 00) ond 
= “ mt ht 
[n ie | a rh] +H 
te el hd SSS sk 


RLS ek 


wo fee at ane 12) 0 EEE q 
tC a] fe: 81 . (Eh ok ‘ 
, : fee ut " wa 
k I I-- en be Ct a) - La 
oe , na be ek fe I cod ee = 
tH al a Aine CE few oe ra Ut Fl 


ck lee = wal WAL 
[se So Hi eH a ih. ft ia Us ee 
Cam] 


ae eS De) mone 

OCLC LIUCHS he acer ede ri 
ed LL eked ef Loeb cd Ue! 
elSpes cebeied ooeteleel EE clit 


COC LW ce es 
a1 On| ee Bee 
Ell b- J 
i. EE) W 


IT ie 
ac UC 


JINN 


oh IC [- 


poceegaaanes: 
30813 PRINT 


UFi 


61 


a) 
mn 
Hi 
D 
aa 
he 
m 


2B, YOU HABS' ,"S§ 


stl 
a 


ND UR 


ai CC 


bos Be wD) 


Fg Sa de a 


La Mad hot Cat SE Wa 


7 TS Tet 


TMP ca cae 2H 


0 CN SPY 


iT oo. YOU HAVE EXCEEDED 
EE’. "LIMITS OF $180 AND H 


CEO TO RETIRE FRO 
H YOUR WEALTH", ‘Hl 


TO es Be 
heros 0 


Te eC CEO ee et ek he 


EMD es 2 ba Dd let le 


“coe 


ST A 


HRE SHORT. REMEHM 
Go 


EER * HPUTER $20. ¥O 
Uo MAY M.ub. 
Felis 
Be2aa 
a218 
fee28 F 
Baaa 

a 

a 

a 

a 


ee OS Un 


aad S,8;5%,, 
Sas HEH GOTO S100 
SBS HEM GOTO eae 
aaF UT YOu STILL Owe 
THE | 2#@-CR 
S@S0 37 
Bisa Fi WT “OU CAN FORFET 
T YOUR )°RROFIT AS A TIP 
TO TH an 

ig 5 

aa Fi UT “GU ONLY BROKE 


62 


WAGONEER'S WALK - RULES: 


YOU HAVE $23. YOU HAVE BEEN 
INVITED TO A DAY AT THE RACES 
“30 WATCH YOUR MONEY.THERE ARE 

4 WAGONS IN THE RACE, ALL FROM A 
NEARBY SCRAPYARD - SO THEY Da 
TEND TO BE RATHER SLOW. 


YOU ARE INVITED TO BET ON 
OME OF THEM TO WIN. FIRST, 
HOWEVER, YOU MAY SEE THEM IN 
THE PADDOCK. 


PRESS "CO" Ta CONTINUE 
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Driving Games 


GRAND PRIX 


This game of skill, written by Jim Archer, combines 
steering, braking, and accelerating around a rather 
complex race course. The car is steered into a starting 
speed of 40 mph, from which you can accelerate up to 
a maximum of 200 mph, but it is quite difficult to com- 
plete the course at this speed without crashing at least 
once. Every crash costs you a time penalty of 10 sec- 
onds. There is a PAUSE statement within the main 
loop which is related to the current speed, so the pro- 
gram does actually get faster as your speed increases. 
At the final lap, the average time per lap is given in 
minutes and seconds, and you’re graded as a driver 
from A to F. Only the best can get an A. 
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ALLEY DRIVER 


In Alley Driver, written by Said Hassan, you have to 
drive a car down a constantly twisting track. Said ex- 
plains: “The idea for the program is not really original, 
I know, but I think the way I’ve done it in this game 
is. Instead of scrolling the screen to give a racing-car 
effect, as is often used in these sorts of programs, the 
car (an inverse H) races down the screen. The effect, I 
feel, is slightly smoother and faster than scrolling. 

“After each section is completed, the screen clears 
and a new track appears. The program supports a high- 
score feature, and after each game will ask the player 
if he or she wishes to have another game. Pressing Y 
will produce a new game.” 
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920 NEXT N 

100 LET A=x 

110 FOR N=ePIePI TO CODE “=" 

ie0 PRINT AT NX; 

138 IF PEER (PEER LESSS+25E64PEE 
K 16299) =<CODE “M' THEN GOTO 21a 
148 PRINT AT N-PICPI.A; “OS AT ON 
2% 

15a, LET A=x 

160 LET ~=x+t(INKEY$="O"! -(INKEY 
go" 13 

17a NEXT H 

i808 ; 

199 

2a0a 

219 

220 

230 », "SCORE 
=i; 5 ’ 

246 Hat 

258 PRINT “HTEH SCORES" OH MPL 
AY AGAIN" 

260 IF INKEYS="" THEN GOTO 26a 
27O IF INKEYS="Y" THEN GOTO cop 
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SQUEEZER IV 


Vroom, vroom...and you're away, driving your car along 
a constantly twisting and turning road. The road 
changes width as well as direction, demanding even 
more of your skill. The road will start off very wide (to 
get you used to the wheel) but will close in progres- 
sively. To move your car, use the 1 key (left) or the 0 
key (right). The .731 in line 22 controls the rate at 
which the road narrows. Change the second or third 
decimal place to alter this. If you hit the side of the 
road, your score will appear, and you'll be offered an- 
other game. Squeezer IV was written by Nick Wilson. 
Lines 21 to 70 set up and then decrease the road width, 
and move the car. The routine from lines 80 to 150 asks 
if you want a new game, and from 202 the road is 
controlled. 


20 REH 
Li RE 
le LET 
La LET 
ida CLs 
L3 LET H=8 
#8 LET L=@ 


94 


22 PRINT AT BLM; MS TAB (31-b 


@2 IF RAND:>. 732 THEN LET L=L4+1 
23 LET M=L 

25 IF L:i3 THEN GOTO 20@ 

20 IF INKEYS="0" THEN LET xX=x+4+ 


49 IF INKEYS$="°1" THEN LET x=x- 
4 
-s 

SQ PRINT AT LFi.x; 

5S IF PEEK (PEEK 16395+2568+PEE 
Ko 16395) 1:8 THEN GOTO 58 


728 SOTO 24 


110 PRINT AT 1@,18; "TRY AGAIN 7 


42@ IF INKEYs="" THEN GOTO 128 
14Q IF INKEY§="¥" THEN RUN 


BO2 LET L=i+il AND RND?.5)-(4 A 
2@3 IF 3:26 OF L<@ THEN GoTO 2a 


2 
205 SCROLL 

218 PRINT TAB L: "Ml " 

230 IF INKEY$="@" THEN LET X=X+ 
us 

24@ IF INKEYS=s"4" THEN LET x=x- 


aL 

258 PRINT 17; 

36@ IF PEEK (PEEK 163598+2562PEE 
KABS59) <2 THEN GOTO 60 


are 
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Board Games and 
Simulations 


SLOT MACHINE 


Written by Adam Waring and Mike Cleverley, Slot 
Machine uses a flashy machine-code routine to reverse 
the display. It is called during the introduction, win- 
ning, and losing routines. 

The object of the game is to win a grand total of $50. 
This is achieved by gambling on the one-armed bandit 
(see lines 40 to 80). It costs $1.00 per go, and you win 
$5 for getting two numbers the same, $15 for getting 
three the same. 

The program has RESPIN and NUDGE routines. To 
save, type GOTO 6550, start your recorder, and then 
press ENTER. Upon loading, this program will start 
running on its own. Start by entering the following 
routine, which is used to put the machine code into the 
REM statement: 


1 REM LeneS87eoeles456 7858 

18 INePLT > 

2#@ LET AS 

30 IF ass’ THEN INPUT AS 

40 IF As= THEN STOP 

BQ PORE x, iBsCODE AS4C ODE Agta 
Tl 1-475 

6A LET x=k+i 


After you’ve entered that, run it and input the fol- 
lowing. The first prompt requires 16514 as entry, then: 


2a, @C, 48, 36, 7, 2B, 23, FE, 
FE. 76, 28, @3, 10, FS, CS, o6 
SG, 77, 18, Fa 


1 REM ESRNDBSFP SAUE TAN LEN 


Once it does, enter as a direct command POKE 
16510,0 Then, enter the rest of the program: 
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25 RAND 

2? DIN 

28 LET 

34 REM 

3S REM 

36 REM 

3G CLS 

40 PRINT 

423 PRINT 

46 PRINT " 

B@ PRINT " 

Bl PRINT " 

56 PRINT " 

6a PRIN? " 

BS PRINT ™ 

7@ PRINT " 

PS PRINT 

7& PRINT 

7S PRINT 

73 PRINT 

6@ REM 

22 REM 

38 ARE} 

$1 REx 

188 GOSUB saa8 
_1f@ PRINT AT 15,3; "YOU HAVE §"; 
ms 

325 IF A+:INT A THEN PRINT © 
130 PRINT TAR 5; "PRESS "'cr" To 
CONTINUE’ TRE 3; vege TO gurIT" 
140 IF Ni '$=°G" THEN STOP 
tee >"C" THEN GOTaG 14 
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2408 PRINT “$215. BURING THE GAME 
YOU MAY GETA RESPIN. THESE ARE 

FREE. AND" 

241@ PRINT “THE FLASHING BUTTON 

INDICATES WHICH REEL MAY BE RE 

SPUN. YOL 

e4e0 PRINT “RESPIN BY PRESSING T 

HE O'S? BEY. IF YOu BDO NOT WISH 
TO RESPIN® 

38 PRINT “THEN PRESS THE ‘"N"" 


PRINT 
PRINT 
PRT ' NT 
PRINT “PRESS "'C' TP CONTIN 


IF INKEYS<:3°C" THEN GOTO 24 
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2470 PRINT “TO STOP NUDGING, PR 
55 feat yte na 
6@ PRINT “THE GAME MAY BE TERM 
INATED AT oY TIME BY PRESSING 


UW PRESS THE 
2468 PRINT °C 


rm 


2485 PRINT . 
2490 PRINT “PRESS ""O"" TO CONTI 


2495 IF INKEY$<>"C" THEN GOTO 24 
2500 RETURN cepa 


3020 FOR N=is TO 21 
3038 PRINT GT N,@;" 


3860 NEXT WN 
38078 RETURN 


r 
iat 
UP TT t: 


p 
F 

TH 
i) 


HH 


tL 


ee Da) aa) im “Tl ‘ 


Es 
Ls] 


SD NS Eee 


HOH I CSNY 


DODD SW ae 
zur min en rari 3-23 


GS GC Cn CA en 


COV CTT AST CTL CST fe Be Fe fe fe fof 
FT OSs Ea 


I 


“fl 
a 
mn 
) 
w 
a 
Fi 


tt 


“sl 

Ce Ba 
Ul peg d 

Lt os) 
1” 

T 


CTPA 
GS wall 
Gey 
uu 
na 


an 


| ead 
La] 
Tl 
at 
Hi 
Zz 
| 


bg b= agg a 


COT Tl 


no 
ey 
U 
$s 
1 
=, 

| 


fer pee 
rae) 


nt. 
fe 
& 
Tt 
on] 
tH 
z 
| 


Ss 


27 


. bu) 
. be ] 

on 
[2 
nen 
6) 

be 

e, 

“j 


an 
be 
m 
Lt] 
TI 
mi) 
H 
rd 
“| 


THEN GOSUEB 4 


GOTO Se@0e 
H GOTO 6200 


2i 
i; "eaeaa" 
be 


8 
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REACTION 


This program is based on an old reaction test for pilots 
and bombadiers. In its original form, when computers 
were steam-powered, the test consisted of flashing lights 
and switches, controlled by tubes. The T/S 1000 has 
done away with all that. 

You'll see an interesting display on the screen at the 
start of the program, made up of the numbers 1 to 9 
down the left-hand side of the screen. A black bar finds 
its way down the screen, until it reaches the bottom, 
followed by a series of other bars. The aim of the test 
is to stop the bar as close to the top of the screen as 
possible, by pressing the number or letter that the bar 
is on. This may sound simple, but you'll soon discover 
that it is not. The score, shown at the top of the screen, 
fluctuates according to how fast you can get to the bar, 
so it’s quite possible for the score to fall below zero. 
You can speed the whole thing up by adjusting the 
value of N in line 110. When the score gets above 49, 
the test is terminated. Reaction comes from Nick Wil- 
son. 
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REM REACTION TEST 
REM IICK WILSON 


LET J=INT (RND#26145 
PRINT AT @,8; "SCORE = °;8;" 


LET ‘=i 

FOR I=i To 282 

LET v= 

PRINT AT ¥Y4+1,J5; "BB GAT v.44; 


LET N=a 

IF INKEYS$<:""" THEN GOTO 15¢@ 
LET AS=INKEY § 

LET N=N+i 

IF N=d THEN GOTO 158 

IF Ags="" THEN GOTO 38 

IF AS=CHRG (1+29) THEN GOTO 


HEXT 

PRINT AT Yel,Jdj" 5 a 
LET 3=5-298 

GOTO 8@ 

LET S3=54+it2a-TI) 

IF 3:252 THEN STOP 
PRINT AT Y4+L1,d0; "---" 
SOTO 68 


CHECKERS SEVEN 


This game is somewhat like checkers, except that it is 
played on a7 x 7 board. The pieces move like checkers 
pieces—diagonally one square, jumping over an op- 
ponent for a capture into an empty square beyond the 
opponent. The main differences from checkers, apart 
from the size of the board, are that pieces are able to 
move forward and backward at will—every piece can 
move like a king—and there are no multiple jumps. 
The T/S 1000 is the X’s moving down the screen, and 
you are the O’s. You move by entering the number of 
the square from which you are moving—entering the 
number along the left-hand edge first, then the number 
across the top, then pressing ENTER. The T/S 1000 
will keep track of the score, tell you before it moves 
the move it intends to make, and terminate the game 
as soon as one player manages to capture five of the 
opponent’s pieces. 
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Seae8 
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a 
AT 2,8; "FROM?" 
ra 
AT 2.8:;6M,"° Tot" 
MH 
AT 2,8; " " 
AT @,8; 
Ni sb 
fH-Hiseo GR ABS 
ET HtGM+Mi -2) =26 
fH-His22 OR ABS 


THEN it ME=ME+1 


LET aie 


Peeb 


if STEP 


-i 
THEN GOTO 786e 
4 
DP B<3 THEN GOTD 
Br2 THEN GOTO 


LET Hines (61) =26 


LET HiA 
LET Hi 
LET ‘Y= 
LET x= 
LET IT 
RETURN 
LET y= 
LET Y= 
LET Ks 
IF HEE 
Faze2e 

IF HK 
FOR T= 
IF Hik 
HEXT T 
IF ¥<72 
BOTS 


Pe 
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3 YW<¢l@e@ THEN 


THEN GOTO 746e 
26 THEN GOTO 
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S860 LET Hii se 
S070 IF A=72 OF 
A=61 OR A=55 OF 
NM oLET Hifi =62 
S882 IF Assi OF 
Ase? OF As=le OF 
HoLET Hii =5e 
S890 NEXT A 
31908 LET { 
S110 LET { 
S120 LET 2 

9130 LET 

Silda RETURN 


OR 
OR 


OR 
OR 


OR 
THE 


OR 
THE 


BETWEEN THE STARS 


When the delights of Earth begin to pall, you may hun- 
ger to soar into darkest space. You have been given 
responsibility for the security of a cube of space, mea- 
suring 10 x 10 x 10. The Terran Federation, sparing 
no expense in the defense of Earth, has provided you 
with a spaceship equipped with a T/S 1000 as its on- 
board computer. Now it is your turn to guard the space 
lanes. 

There are a lot of things demanding your attention. 
Your position within the cube is given by the three co- 
ordinates under the line SHIP IS CRUISING AT THE 
CO-ORDINATES: The first co-ordinate is your posi- 
tion north/south (with lower numbers to the south), the 
second is your position across the cube—i.e., east/west— 
and the third is your position within the cube (forward/ 
back). You can see that the ability to visualize in three 
dimensions is useful. 

The alien craft is moving very slowly within the 
cube, but although you know, at all times, its direction 
from you, you do not know how far away it is. You have 
to hit it as many times as you can before the time 
counter decrements to zero, and without colliding with 
the alien craft. Running out of energy will also ter- 
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minate the game. You will know you are close enough 
to fire when the computer reports that the alien ship 
is firing at you. Every hit decrements your energy sup- 
ply rather drastically. 

The game is simple to play, despite the bewildering 
amount of input the program is giving you. You just 
touch the key which refers to the direction you want 
to move: N, S, E, or W to move north, south, east, or 
west, A to advance, R to retreat; and L to fire your 
laser at the alien ship. If, for example, you know the 
ship is to the north, you can just hold down the N key 
until you move onto the same north/south plane as the 
ship, then test for proximity by firing. 

You'll find that the program will teach you how to 
play the game. Just keep in mind that you have to get 
as close as possible to the alien ship to fire, and that 
your task is to get as many on your “tally” as possible 
before the game ends. 

Between the Stars was written by Roger MacIntyre. 


ig TARS 

28 NHTYRE 

Sa 

48 6 

Sa or 508 

Sa - (8) “ENTER YOUR 2 
COMMAND 

$2 PR “Ro E,2,H, (L384 
SER, UT Ri ETREAT” 

i@a- Le 2.2! 

120 TF s ’ THEN GoTo 128 
138 IF 3 THEN GOSUEB 32 
i 
i406 IF INKREYS=°N" THEN LET x=x- 
258 BYs=°S" THEN LET xXsx+ 
“4160 IF TNKEYS="E"° THEN LET Y=¥+ 
1 

178 IF INKEYS="H" THEN LET Yey- 


bea 


- 


[oe 


ret 


> | 
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LEQ IF INKREYS="°A" THEN LET Z=z7- 
200 IF THREYS=s"R" THEN LET Z=2+ 
95 PRINT AT £,8; 54% 

@@ GOSUE 62a 

18 IF RND:S.5 THEN GoTo 4a 

4@ LET ASA+INT © (RNDSE3) -(RNDSss 


{1 THEN LET A=1 
>i8 THEN LET A=18 
T BsB=INT ( (RAND) -(RNDS3 


@ THEN LET &=198 
HEN LET B=1 
= THEN GOoTa 46 
LT RANDS3) -CRNDess 3 
N LET C=! 
NH LET ¢=18 
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520 P 

S30 PRINT “iE HAVE 

BEEN 5 LONG" 

S40 IF i: PRINT “HM WE HAY 
BEEN DEF " 

S50 PRINT 

S55 PRINT AT 18,0; "ENERGY LEFT 
ars m at 


IO Ne 


56a PRINT “i 
ENER zz 

S72 SToe 

Sea PRINT 

SG8 PRINT “HE HAVE COLLIDED WIT 
H THE’: TB 2: ALIEN SHIP" 

Bia sToar 

S20 REM <4 ALIENS SHOOT <2 

BSG IF ABS (4-*1:3 OR ABS (B-Y) 
23 OR ABS (C-F!+3 THEN RETURN 
650 IF RND:@.75 THEN RETURN 


& 


668 PRINT F ALIENS 
FIRING AT US " 

670 FOR J=1 To 56 

BEQ NEXT 

698 PRINT AT 1:8,7T% 

FOG IF BNG:8.7 THEN GoTo 77ra 
F7i® PRINT OT 1,6; TE ALIEN FIRE 
HAS HIT us # 

F220 LET L=L-? 

73@ IF L<=8 THEN GoTo 5eae 

F400 FOR J=i To 5 

758 HEXT 

FTE RETURN 

PPO PRINT AT 1,8; "RURRDEPPALIEN 
FIRE MISSEC HERE 

7208 FOR J=2 To 58 

73@ NEXT J 

232 PRINT AT L,:8:;7S 


sao REM ## PRINT OUT #% 
S58 PRINT AT 18,6; "ENERGY LEFT 


56a IF TI=@ THEN GOTO 500 
SS@ PRINT AT 19,20; "TIME: “;TI 
i! THES PRINT AT is) 4n" 


oza PRINT | aT ‘2B ,4G9; "TALLY: "3T 
roi4.0; "my SHIP IS CR 


ORD INGTES : 

336 - TRE 4; hye “Ve 

S40 IF A=x AND Bs ANG C=i THEN 

GOTO 58¢@ 

S60 PRINT AT 5.0; ‘SAT 5,0; Se 
SG AT 5.82" 

S67 PRINT AT &,@, “ALIEN CRAFT I 
5 MOVING 

Of@ IF Acs OR Beery THEN PRINT 
“TO THE *; 

S62 IF Ack THEN PRINT “NORTH"; 
SOa IF A:>x THEN PRINT “SOUTH"; 
1BO@ IF Gey¥ THEN PRINT "EAST", 
i@i@ IF B:y¥ THEN PRINT “WEST": 
i@ee@ IF Csi THEN PRINT " OF US" 
i@30 IF C>zZ THEN PRINT " BEHIND 
uo" 


i84@ EF Csi THEN PRINT “ IN FRON 
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186@ RETURN 
ig7Va@ REM #+ INITIALIZE #2 
T tRND#10) +1 


1230 FOR J 


tal 
1 

re 

Ps 


DRAGON’S GOLD 


The aim of Dragon’s Gold is simple: to accumulate as 
much gold as possible, while wandering through a com- 
plex maze of tunnels, caves, and doors, and to avoid the 
dragon and mineshafts. You enter A to move ahead, L 
to move left, or R to move right. Entering a space before 
pressing ENTER will cause the game to stop. Dragon’s 
Gold was written by D. C. Owen. 
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AND Rg="b" THEN & 
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AND Lg="T" THEN G 
AND Rg="T" THEN & 
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REM £24545 545¢444% 

GOTO LABGA+INT (BNDbe54+1) 41808 
PRINT « BOR" 
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La, ie 

ia LET 
; @ RETURN 
1399 REM #4545454 4¢¢ 
eeGSa REM <+ GOOR ++ 
SHELA GOTO 28G68+INT (RNDS44+11 4188 
aie PRINT “IT TS LOCKED. HOVE & 
i & UBB 


G=oINT (RNDS9+1) $108 
“IT WILL GPEN. THERE" 


RE “70; " GOLD BLOCK 


Afi fit 
4 [UE ps 


md CT A 


STO oe 
XT PATCH 
bel PED et TI et md 


= IH 
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2242 Ril 

2388 NT ‘THERE IS A LAKE HERE 
Gili 
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PRINT “CANHOT SEE THE FAR § 
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wey THEN 


Ud bse md IIS 


PRINT "YOU HAVE 
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OS a eee ea 


PRINT G&G)" BLOCK 
HoOPRINT “UNPORTU 


ae TH 


“TH 


THEN PRINT TAB 16;" 


HT (RNGeS+11 452 


“THIS ROOM CONTAING FA 
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Kato lo lo Og Os Ga 


A & COCA Re 


Oe Gd) Gone ces on 


SED STE 
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POP PIP PRE OP pp fpf 


SCROLL 


FOR =i TO 15 
PRINT TARE 2eJ; "HE" 


SCRGLL 
NEXT J 


SCROLL 


NPUT 


4459 IF cop 


T IS A MINESHAFT... 


“!WOL ARE DEAD" 
“THERE ARE NOISES AHE 
“BO YOU WANT TO INUES 


i 
Ego ;CODE ‘Y" THEN & 


GOTG 4088 
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HIT IT 


Seven boxes appear at the top of the screen, numbered 
(rather logically, one would think) from 1 to 7. The 
message GET READY flashes for a couple of seconds, 
and then vanishes. Following a random delay, a black 
square appears in one of the boxes. You have just over 
a second to hit the corresponding number’s key. (To 
make it easier, change the 20 in line 130 to a bigger 
number.) 

If you got the number right, the message HIT IT... 
will appear. If you failed, you'll either get TOO LATE 
if you took too long, or WRONG if you were wrong. 
Keep watching, because another number will soon ap- 
pear. We suggest you plan to take the best of, say, five 
games, and keep a tally of which player gets the most 
points. The graphics in the program are: 

Line 17: E7R 

Line 26:5B 

Line 40: W 6 Q 

Line 100: space 

Lines 12 to 45 print and number the seven boxes, 
while lines 46 to 70 flash the GET READY message. 
The .box is chosen and printed by the routine from 90, 
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and lines 140 to 165 choose the correct message to dis- 
play. Hit It was written by Nick Wilson. 


19 REM HIT IT 
11 REM HICK WILSGN 
i2 PRI ‘ i 2 3 4 5 
13 PRINT 
15 FRIb 
16 FOR F=i To F 
1? PRIN eS meee 
18 HEXT I 
28 PRINT * " 
25 FOR I=i Ta F 
26 FRINT “§ 8°; 
27 NEXT I 
23 PRINT ' " 
28 FOR T=i1 Toa ¢ 
40 FRINT “Jbeell '; 
45 NEXT I 
46 FOR IT=i Ta 
SQ PRINT AT ia, "10; "Eig READY" 
S55 LET L=3IN &- 
60 PRINT AT 18,10; "GET [Saisie 
65 LET L=SIN & 
7@ NEXT TI 
?S5 LET C=8 
S&@ PRINT AT 18,16; " * 
SQ LET UsINT (RNDs?7) 41 
Si FOR T=i Ta (RNGsesa) 
$2 HEXT I 
198 PRINT AT 3. (WeS) +W-1; "9 
11@ LET AS=INKEYS 
220 LET €=C+i 
1238 IF C=x2@ THEN GOTO 218 
148 IF Ag="" THEN GOTO 118 
180 IF SOGE Ag<CODE "1" OR CODE 
AgS:CODE “F" THEN GOTO 238 
160 IF VAL Ag =i THEN PRINT AT 1 
8,10; "HIT IT..." 
165 IF VAL Ages THEN GOTO 236 
178 FOR T=1 To 38 
180 NEXT TI 
190 PRINT AT @,@; 
200 RUN 
210 PRINT AT 14,18; "TOO LATE." 
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TIC TAC TOE 


I guess there is no need to tell you how to play this 
game. You and the computer take it in turns, trying 
to get three O’s or three X’s in a row. Unlike many 
computer versions of the game, this program allows 
you to win now and then. Most of the computer Tic Tac 
Toe games are unbeatable, with a draw being the best 
you can do. 

You move by entering the number of the square into 
which you want to move. You enter your move first, 
and the computer will ignore you if you do not enter 5 
as your first move, the center square. 

This version of the game is capable of handling over 
40,000 developments of Tic Tac Toe, about an eighth 
of the possible games which can occur. 


REM TIC TAC TOE 
REM ADAPTED T HARTNELL 
REM FROM Z2*3@ PROGRAM 


i 

2 

3 

4 REM BY STUART ROBERTS 
4@ DIM Bigs 
28 CIM Pia: 

3@ FOR A=l TO g 
42 LET BA! =A 
S08 NEXT A 
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GOTO g6e 
RETURN 
GOTO 320 


RETURN 
GOTG 326 
RETURN 
GOTO 328 
RETURN 
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MUSIC(?) 


This program is called Music (?) because certain mu- 
sicians may claim the definition of music is not wide 
enough to stretch to the output of the computer in this 
program. 

The sound, which can be quite musical, is produced 
through the television speaker. You may have to tune 
the TV slightly off the optimum position for the picture 
to hear the sound at its best. 

This program, by Tim Hartnell, produces music at 
random, with a particular note being produced by each 
of the Z loops. For additional notes, of different pitches, 
all you need to do is add extra subroutines at the end, 
and modify line 18 to allow for them. 

Notice how line 18 takes the place of the ON...GOTO 
command available in many dialects of BASIC. Line 
18 takes the place of all of the following lines: 


IF K = 5 THEN GOTO 220 
IF K = 4 THEN GOTO 180 
IF K = 3 THEN GOTO 140 
IF K = 2 THEN GOTO 100 
IF K = 1 THEN GOTO 60 
IF K = 0 THEN GOTO 20 


112 


You should keep this programming technique in mind 
when you are getting short of memory. Tim Hartnell’s 
program is followed by a shortened version of it by Ken 
Mahogany. 


nat ad 
TUT Es 


be | 


om 


ae 
me CT Ng 


bel 
Tt 
1: 
ca 


a WT + 


“THT TH 


Al or - 
l 


& THEN RUN 


G>.5 THEN RUN 
=1 TO PRHD+s66 


” Et 


CT 


a es Feed 


| THEN RUN 
To LO+(RND+ea! 


THEN RUN 
TO 28¢ (RANDs58) 


5 THEN RUN 
TO 10¢ (RHDsEG! 


a eo 
i) 


TS Ne Ne 


= M 
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ETCHASKETCH 


This tightly written program allows you to use the 5, 
6, 7, and 8 keys to move the PLOT blob around the 
screen, drawing pictures of your choice. 

Once you’ve got it running, try and modify it to give 
you a choice of starting position, and/or to “turn off” 
the blob from time to time to move it to a new position 
on the screen without leaving a trail. 
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19 LET A= 
20 LET B= 

S@ LET Ag=ii 
48 IF Ags" 
6@ LET As=A+! 
7@ LET &=8+: 
SQ PLOT ££, 
1@@ GOTO 2e 
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LIFE 


The game of Life was invented by John Conway of Cam- 
bridge University, England, in October 1970. It sim- 
ulates the birth, death, and growth of cells in a closed 
colony. 

Before the state of a cell for the “next generation” 
(a generation is a complete check and reprint of the 
grid upon which the colony lives) is determined, it must 
be compared with the eight surrounding cells. If there 
are two or three occupied cells around the one being 
checked, and the one being checked is occupied, there 
is no change; it survives till the next generation. If 
there are three and only three occupied cells, and the 
cell being checked is empty, a cell is “born” there in 
the next generation. If there are four or more neighbors, 
the cell being checked “dies”—that is, is emptied in the 
next generation. 

That is almost all the information you need to con- 
struct a game of Life from first principles. There is just 
one more thing—the rules are applied all over the grid 
at once, so you need one array to hold the current gen- 
eration, and another to hold the new generation, so that 
changes for the next generation do not affect cells which 
have not yet been checked in the present generation. 
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Set up a 10 x 10 grid, and try and work out a program 
to (a) place some cells on it; (b) check each of these cells 
in turn in accord with Conway’s laws, and then update 
a reference array; (c) copy the reference array into a 
“printout” array; and (d) print out the colony and start 
again. 

Here’s one way of doing it, which uses two “data” 
statements in the form of strings which are accessed 
element by element. A$ in line 30 contains information 
regarding the numerical relationship of cells to each 
other (e.g., + 1 is one to the right, — 1 is one to the left, 
and so on). A$ in line 90 is the position of the starting 
cells, when the grid is numbered 1 to 100. Line 30 
contains the following: minus sign, plus sign, equals 
sign, pound sign, graphic from the S key, graphic from 
the 2 key, graphic from the 1 key, space. 

Note that there is a comma after the last element 
within A$ in line 90. This is needed for the “data” 
routine to work. 

Other starting colonies you can try: 

Beehive: 45, 45, 46, 64, 65, 66, 74, 76, 85 

Cross: 48, 47, 54, 56, 65, 74, 76, 83, 87 

Mobius: 23,24,25,33,34,35,43,44,45,56,57,58,66,67, 
68,76,77,78 

Russian: 33,34,35,36,37,38,47,56,65,74,83,84,85,86. 
87,88 

Flame: 16,26,36,46,51,52,53,54,55,56,57 ,58,59,66,76, 
86,96 


1@ FAST 
#@ DIM & 
38 LET A 
44 FOR A 
5@ LET E 
6G HEXT & 
78 DIM AL 
S@ DIM Li 
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GENERATION 4 


GENERATION 1 
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TENBY 


Tenby is a relatively simple gambling game played with 
two dice, based on craps. To play, you roll two dice and 
add up their pips. If you roll a seven or an eleven on 
the first roll it is called a “natural,” and you win, ending 
that round. Rolling a two, three, or twelve on the first 
roll is a disaster—the round ends immediately. Rolling 
four, five, six, eight, nine, or ten on the first roll be- 
comes your “point.” The aim of the game—assuming 
it has not ended with the first roll —is to roll your point 
again before you throw a seven. 

The program keeps a tally of your wins and losses. 
If you like, you can modify the game to allow for bet- 
ting, either with one player, the player and the com- 
puter, or two players. The percentage “ahead” you are 
is shown. If this is a negative number you are—need- 
less to say—behind, rather than ahead. 


19 REM TENBY 
#2 LET @=0 
3@ LET L=2 
48 LET W=@ 
SQ LET @=G+1 


124 


ro 


an? PRINT AT 3,4; "GAME NUMBER " 
<2, PRINT AT 4,4, °HINS: "Sb OL 
tot ten! -_ zh 

7S IF 1:8 THEN PRINT AT 28,8; " 
OU ARE AHEAD BY “TINT ((W-Li418 
@-Livi@:" PERCENT" 

#2 GOSUB 284 

$8 IF A=f GR Asll THEN GoTo 33 
1@@8 IF Ase OR A=5 OR A=le THEN 
OTO 348 

118 LET: PsA 

228 PRINT AT 4,4; "YOUR POINT I 
130 GOSUB 288 

i148 IF Ash THEN GSaTO 338 

45@ IF A=? THEN SOTO 348 

16@ FOR T=i TO 5e 

17@ NEST T 

1€@ GOTO 128 

#80 PRINT AT 2,8) “PRESS Mra Ro 
i DICE’ AT 8,6; "6" 

21S IF INKEYS<:"B" THEN GOTO 28 
eea@ PRINT AT 8,8)" 

2G@ LET ASINT (RND¢6411+INT CRN 
#53 42 

e408 FOR Tai To 58 

250 HEXT T 

268 PRINT AT 8,8; "OU ROLLED “; 


WIN" 


7 yOu 


; YOU 
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BATTLE 


This program by Chris Callender places you on a check- 
erboard measuring 9 x 8, in which you move diago- 
nally, and capture by landing on top of an opponent. 
There are no multiple jumps. 

The computer will have the first move in each game, 
and the aim of the Battle is to capture six of your op- 
ponent’s pieces before he, she, or it manages to do so 
with your pieces. 

You're playing from the bottom of the screen (O) and 
the computer from the top (X). You move by entering 
the number down the side relating to the square you're 
moving from, and the square across the top or bottom, 
as a single two-digit number, then—after pressing 
NEWLINE—the two-digit number representing the 
square you're moving to. Illegal moves will be rejected. 
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TE FL=i THEN 


5 
5 
65 GOSUa 1aaa 
@Q@ LET S$ (Ei (F) 


Kaha ty ta 


GOTO 388 


a a 


S@5 IF S8(84+61) (F+Hi ="G" THEN LE 
T €S5=CS4+l1 
S18 LET S8(E4+6) (F+H) 2°" 
320 GOTG 15a 
1680 LET Ezs2 
1881 LET Fee 
1@@2 LET G=08 
19@23 LET H=8 
16918 LET FL=8 
1820 IF SSE: tFiecs"=" THEN GOTG 
11628 
1040 IF S8(E+2i fF +i <As OF SetE+ 
Li F-1)=sAS$ THEN LET Gel 
1@5@ IF S#(E+i} (F +11 <A GR SeiE- 
1: {F411 2h THEN LET H=1 
1860 IF SS(E-11 (FF +11 sA& GOR S$lE- 
Li tF-1)=As THEN LET G=-1 
10708 IF S$tE+i: (F-11=-A$ OF SSiE- 
1: tF-13 =A THEN LET H=-1 
pee IF @4:0 AND H::@ THEN LET F 
Ba 
1885 IF FlL=l THEN RETURN 
1188 LET Est+i 
Li@il IF €&:18 THEN LET FxF+l1 
11@2 IF €&:18 THEN LET E22 
1110 IF F+il THEN RETURN 
1120 GOTG i@is 
11235 S708 
1130 PRINT AT 8,8; 
11isce FOR Asi To 16 
LisS PRINT 
11i4@ FOR B=1 TG 11 
1145 PRINT 381A, B1; 
11i5@ NEXT & 
1155 NEXT 4 
1168 PRINT 
1165 FRINT 
Li7@ PRINT “ME: ";05;)° YOu: 
HS 
118@ RETURN 
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MANDALA CHECKERS/ 


CHOPPER CHECKERS 


This program follows the standard rules of checkers, 
except that you play by starting in the corners of the 
board, rather than at the ends, and there are no mul- 
tiple jumps and no kings. Any piece may move in any 
diagonal direction. Captures are as in checkers, by 
jumping over an opponent’s piece into an empty square, 
always moving on the diagonal. Once you’ve entered 
Mandala Checkers in line with the first listing, you can 
easily modify it to play Chopper Checkers, which is 
closer to ordinary checkers. In Chopper, you move from 
left to right across the board, while the computer moves 
from right to left. You play again as in checkers, except 
you can move in any diagonal direction as if you had 
a board of kings, there are no kings, and there are no 
multiple jumps. You move in both games by entering 
your move as a single four-digit number (like 3344), 
which means you’re moving from square 33 (the num- 
ber across the top, then the number down the side) to 
square 44, 

You'll find that this program, which uses four char- 
acter cells for each square on the board, produces a 
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most effective display, which almost fills the screen. 
The board is printed at the start of the game, and from 
then on only the squares which change are reprinted, 
so it plays very rapidly. 

The following are the only line numbers that differ 
between the two programs: 6176, 6440, 7090, 8070, 8080, 
9010, 9020, 9040, 9105, 9190. 


28 GOSUB 9@8e 

30 GOSUB Sane 

35 SLOW 

48 GOBUB Fase 

5Q@ GOSUB Sea 

6@ IF HUM=?7 THEN PRINT AT 19,6 
Pe OU WIN lu 

7@ IF COMP=? THEN PRINT AT 19, 
@;°I WIN Uh 
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HN GOTO 6488 
6340 IF AtK+22Y1 =H THEN GOTO 624 


2 

6350 IF K-247¥<11 OR K-22Y¥:85 THE 
NM GOTO 6468 

Bs6e IF AiK-2e¥isH THEN GOTO 6e4 
@ 

64400 LET Aik4e¥i =C 

6410 LET AK} =E 


6429 LET F=intT ((kK4¢¥) 163 
6430 LET G=K+yv-104F 
6449 PRINT AT 2+6,2¢F; "RM; AT 22 


G+i,2sF; ‘Jal 

645@ LET FeHINT (Kkv10) 

6460 LET G=K-10+F 

64708 PRINT AT 246,24F;" “AT ae 

G+il,a24F;"  ” 

6d&Q RETURN 

6500 FOR G=1i TO 200 

6518 LET K=INT (RANDE$731411 

6529 IF AtkKi =O THEN GOTO 66090 
6520 NEXT G&G 

6540 PRINT AT @,@; "I CONCEGE THE 
GAME" 

6BS50 sToOr 
6600 IF AiK~ }sE THEN LET Y=-11 
6618 IF AiK- 1sE THEN GoTCG 6489 
6629 IF AtK-3!2E THEN LET Ye-3 
6630 IF AtK-33}=2E THEN GOTO 6480 

6640 GOTO 68544 

7O@G0 REM #¢PLAYER MOVE+ 

701090 PRINT AT 28, @; "ENTER YOUR M 

OUE AS ""3a44" 

720 INPUT Ags 

7O2SO IF LEN Agerd THEN GOTO 7826 

7049 PRINT AT 22,0; 


HACE fas fps 
on fuse 


f A 
7860 LET Atigsni tae) sE 


7B PRINT AT 2#6e2, 2¢B1;"° =m"; AT 
2¢B2+1,2461;"° @' 
7103 PRINT AT 2+A2,2#A1;" "SAT 


e¢Aet+1, 241: 
yit? IF ABS (1-61) =21 THEN RETUR 
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7l2@ LET HUNM=HUNG1 
fies LET Att l@s51+62+184Al+He) ve 
PsE 
Fis@ PRINT AT iAe+Be), (ALl+B1li; © 

“TAT Aet+be+i.ALl+Bl; ' 
7id@ PRINT AT @.22; "HUMAN: "> HLM 
7S90 RETURN 
B9Q0 REM PRINT BOARD - START 
SQ4a FOR 2=5 TO 1 STEP -i 
S@66@ FOR x=1 Toa 6 
BAPTA IF AtiseZ+*) =H THEN era A 
T 2%. 242; 5° ge CLAT Sex41.2 " " 
SQSQ IF Alig@e7+*}=C THEN BRINT A 
T #ee%.2227:° SIAT gee 41.2842; " * 
SEQ IF Ai Kise THEN PRINT & 
T Se ,282; iT 2ee%41,242; “BR 
B1l1la NEXT 
B1l20 NEXT 
BLS RETURN 
S390 STOP 
S399 STOR 
g@00@ FAST 
S005 OIM A 
S@18@ LET H 
S020 LET c 
S620 LET & 
4363841434 
4767E82E25 
S@40 LET E 
44536271" 

FOR 


S050 LET 
$090 LET 
90995 LET & 
9160 LET 
$185 FOR 
$118 LET 
S120 LET 
$130 LET 
9135 LET 
$140 NEX 
$150 For 
3168 LET 
S172 LET 
S150 NEXT 
$190 FoR 
9208 LET 
S218 LET 


rg 


9228 NEXT Z 
9232 LET COMF=a 
9$24@ LET HUN=0 
3480 mee 
"TAT 13,8; "J 
me AT 19,8," 


G4i@ FOR 7=1 Ta 17 
S420 PRINT AT 7,1; HE'S AT 2,18; "i 


}=Z THEN PRINT 
Z42);AT 2,19; 


¢>Z_ THEN PRIN 
= ; “i 


$430 IF e2#InT | 
AT Z,@;CHRS (1 
HRS (15542723 
$440 IF eeINT | 
T AT 2,0; "8: AT 
$4598 NEXT 2 
S508 RETURN 
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Now here is Chopper Checkers 
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6222 LET (RANDS?7E1411 

6220 IF THEN GOTO 6268 

6240 NEX 

6258 607 

6268 LET 

B22 IF 

S238 LET 

eiysaie! 

6380 IF 

6318 HES 

Bea 6 

B22 Ti 

Ho GOTO 

6340 If 

& 

SSSA Ti 

Ho GOT 

Brea IF ACK 

re 

64628 LET 

64190 LET 

6428 LET 

64209 LET 

E442 PRI! a 
G+l.,e24#F;° 

6452 LET 

6462 LET 

64728 PRI 2G ,2¢F;" “SAT 2+ 
G+l,2+F;° 

6420 RETI 

B5Se¢2 FoR eee 

6518 LET (RNDS?7S1 411 

6520 IF i THEN GOTO 8&&80@ 
BS308 * 

6548 Zr :;@; "I CONCEDE THE 
SAM 

ésse 

66a0 ii} =E THEN LET Ys-11 
6612 }sE THEN GOTO 64088 
6620 THEN LET Y=-3 
eevee THEN GOTO 6408 
7aaa i AF MOVEs<s 

7e81ia T £22,0; "ENTER YOUR H 
OWE F age" 

7820 Ag 

7028 IF LEN Agiod THEN GOTO ?7a@z2e 
7824a PRINT AT 28,6;" 


~d 
[i] 
rm 
ey 


LET AL=UAL Agtli 
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FOES LET 
7860 LET 
7O6E5 LET 
Fe? LET 
7OSQ LET 
7898 PRI 
2#Borti. 
Figg Pi 
2*eAo+i, 
Filia Ti 
tH . 
71iz8 LET 
Fies LET 
1sE 
Fisa FR 
‘'IAT Az 
7i4a PR 
7aaga RE 
SO80 RE 
Se@40 FOR 
S@BQ FO 
Bara IF 
T ##e,.2 
B0S0 IF 
T Bee. 25 
SQ38 IF 
T 28,23 
BL10 NE? 
Sil2 E: 
Bis ET 
Tv 
T 


=P CT ty Tee 


yO eM 


ADSM AL ae Oe UIRE OMIREONEIN REI RE NYE RIE RID 
be BU EE EES ~ JO O L ESUCe Unt bh b+ B= 


LE 

4i 

PS Li 

LE 

gi Fo 

@ LE 

78 NE 
aa LE 
S698 LE 
e@o05 LE 
S106 LE 
S185 Fo 
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Daa Ao 


Pan 


de oe Th a i] 


hr rer 


woe nee A Ree ft 


Tee en 


fc 1 
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“TAT 


ea 


H+lOseAl+Ae! 2 


§ CAL+B1) 5" 
“HUMAN: OS HLM 


START 
-i 


H THEN PRINT 
241,222; " 
THEN PRINT 
$241,242: "8 
THEN PRINT A 
$N41,222; "SRO 


to 


— Cee Co 
ti: 
-| 
m 
u 


* 


A 
A 


Tete h 
4S4>5 
noma cana 


if 


Derr 


“| 


Te 


PT oe 


MTA RARER MRR RT 


NU 


PU PAD TC DT DD te Bea fas Pes feos feat pete fate fet fee 
ee LL oe EMU ALE oem 


eh bs Oe) 


$418 FOR f=i TO 1? 
S420 PRINT AT 2,1; ‘E'S: AT 2,18; "ll 


3450 IF 2eINT (fe) =Z THEN PRINT 
AT 2,8; CHR LS642°21;AT 2,235;C 
HAS (iSB4z2-2 

94408 IF 24INT (2214¢+2 THEN PRIN 

T AT 2.8: (9: AT 2,419; °8rR 

S450 HEST £ 

S560 RETURN 
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Card Games 


BLACKJACK 


Gwyn Dewey’s adaptation of the famous casino card 
game will have you battling to defeat the computer. 
Very clear prompts are included in this program, which 
even draws the backs of the cards as they are dealt 
before turning them over. The aim of Blackjack, as you 
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probably know, is to get a total of 21, or as close to 21 
as you can, without exceeding 21. Cards are worth their 
face value (with picture cards counting as 10), except 
for the ace, which can be 11 or 1 (if counting it as 11 
would cause you to “bust,” or exceed 21). You enter T 
to be hit (ask for a new card) or S to stick (stay with 
the hand you have). If you like programs which max- 
imize the graphics potential of the T/S 1000, you'll enjoy 
watching Blackjack in action. 
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SQ PRINT AT 5.13; " 2 


52 PRINT AT &,13;" “AT 1 
2,19; "EE | AT 12,15; " 
6@ FOR Z=3 To 5 
65 FOR H=2 Ta 23 STEP 5 
&? PRINT AT 2,H; 
6S PRINT AT 241, 
BOQ PRINT AT 242, 
78 PRINT AT 245, 
PL PRINT AT Z+4 
fe PRINT AT 245, 
73 NEXT #H 
75 NEXT Z 
38 FOR I=i To 2 
Si IF I=si THEN LET H=3 
G2 IF I=i GR I=2 THEN LET Z=l12 
$3 IF I=2 THEN GOSUB 3000 
Sd IF BET<=2 THEN GOTO 91090 
S56 IF I=2 THEN LET H=8 
95 LET DirtistitINT (RNDsFii 23 + 
L 
S?7 FOR N=l Ta 6 
SS PRINT AT Z4N Hi ASL (CODE 24% 
eee oree) aE Ree Z2$(B(I}4+1)34135 
13,6) 
29 NEXT WN 
1098 LET FJ=2 
192 LET Est li sZ$(G(Ii TO Dili¢1 


F-i 
Fei TO DiI) -1)4+Z8(Di 


ro 2 
="2" AND ESid, 1! 
=sT4VUAL ES(d,13 
"9" THEN LE 


T i 
> rs 
155 IF Egii,i)="B" THEN LET BJ 
“160 IF Egid,i:="1" THEN LET G= 
"Iza IF Egis,i)2"4" THEN LET T= 
@ THEN LET T=T-10 
= 


THEN LET G=G-1 
AND BJ=sl THEN GOTO 5 
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549 IF I=1 OF Is=2 THEN LET Z=e2 
SSO IF I=s2 THEN LET H=8 

ee LET GC(T}stCtINT (RNDSF)) 423 + 

i 
57@ FOR N=i TO 6 
SEQ PRINT AT Z4N HI ASIC ICOBE ZH 

POET I -RGr +) 1CODE 2S$(D(T141) 413 

ti, 

565 LET F=F-i 

590 NEXT N 

S95 LET Es 

S00 LET Esgit: Sibi) Ta Of Ti41 
} 

610 LET F=F-i 

620 LET 28=25( TO DtlIi-1)4+Z28$(b8 
Ii¢e Ta } 

B30 NEXT I 

6Bd4@ FOR J2xil Ta 2 

S50 IF Esgidi:=s="2" AND EStdi<="9 

* THEN LET UsuU+UAL ES fd) 

Paid TP ES('r°S" THEN LET Ustt4el 
665 IF Egiii="&" THEN LET BuJ2i 
670 IF Egil: ="1" THEN LET G=G4+i1 

oe? IF Esg(d:="i" THEN LET Usl4+i 
698 HEXT J 
7008 IF Uses THEN LET Us=U-198 
71@ IF U=22 THEN LET G=G-1 

aoa” IF G=il AND Bu=1 THEN GOTO 3 
71S IF Usei THEN GOTO 2898 
718 PRINT AT 11,168;U 
F220 LET CSse 
73@ IF oS=s5 AND Ues21 THEN GOTS 
158a 
7490 IF Usci THEN GOTO 28606 
Pdo2 IF U:+21 AND G.=8 THEN GOoTG 

3500 
745 IF U:=2T AND U<cS THEN GOTO F 

aaa 
750 IF UsS ANG C5=5 THEN GOTO 2 

aaa 
77S (IF CSsh AND U:21 THEN GOTa 

2580 
FEO LET H=H+S 
79@ LET CSstS+i 

, 2ee LET Dt(riettINT (RNDeFi) 23 + 

oe 
585 PRINT AT 11,16: U 
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Hans Meier of Rustenburg, South Africa, has produced 
a highly challenging version of the card game poker 
for the T/S 1000. As the program is about 14K long, I'd 
suggest you SAVE it every so often as you are entering 
the program, so that if you lose what you’ve entered, 
all your work is not wasted. 

The value of each card is the character set number 
of the first character. For example, a 5D is a five of 
diamonds and its value is 33 (the CHR§ value of 5), 
and similarly AE is a ten of hearts and its value is 38. 

The whole pack of cards is stored in a string, A§, 
line 2050. 

The actual program begins at line 2040 where A$ 
and various variables are assigned. The arrays are also 
dimensioned here. Control then goes to the subroutine 
beginning in line 10. A$-is then randomly “split” in 
line 70 and the two parts then put together “back-to- 
front” into a string (X$) in line 80. 

Lines 90—130 make up loop in which 18 cards (C$) 
are selected from this string at random. The “card” 
selected is removed from the string in line 120 so that 
it cannot be “dealt” again. After printing the card out- 
lines (GOSUB 430), control goes back to the main pro- 
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gram where the hands are dealt in lines 2190-2240. 
The hands are kept in two string arrays, M$(1), M$(2) 
and Y$(1), Y$(2), which represent the computer and 
human strings respectively. 

Line 450 (with all shifts in the GRAPHICS mode) 
reads as follows: 

450 PRINT AT A,B;“shift E + 3*shift 7 + shift R”; 

AT A+1,B;“shift 5 + 3 spaces + shift 8”; AT 
A + 2,B; 

“ditto”; AT A+3,B;“ditto”; AT A+4,B;“ditto”; 

AT A+5,B;“ditto”; AT A+5,B; “shift W + 3*shift 
6 + shift Q” 

The hands are first subjected to a bubble sort. To do 
this, control goes to the subroutine in line 200. The 
value used to sort the cards is the character set number 
of the first character of each card. On returning to the 
main program, this sorted string is once again placed 
in M$(1) or Y$(1). The first version is used for evalu- 
ation and manipulation of the hand and the second is 
used for printing the hands to the display. 

Now the control then goes to the subroutine in line 
320 where the values of the cards in the hands are 
changed to real card values. This subroutine consists 
of a loop which extracts one card (a two-character string), 
at a time. If the first part of a string is a A,B,C,D, or 
E it is changed to a T(Ten), J(Jack), Q(Queen), K(King), 
or A(Ace) respectively. If the second letter is an E or 
F it is changed to an H or S respectively. (CE would 
become QH.) On return to the main program this string 
is loaded into M§(2) or Y$(2). 

When you have discarded the cards that you do not 
require (lines 2380—2510), your hand is once again sub- 
jected to a sort (GOSUB 200) and change (GOSUB 320). 
Control then goes to the subroutine in line 480 where 
the value of the hand is worked out. This is done by 
allocating an initial value to the hand, then making 
comparisons to determine whether such things as pairs 
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or threes exist, and adding another number to the in- 
itial one to obtain a final value. 

The initial value of a hand is as follows: 0 for a high 
card, 50 for a pair,-100 for two pairs, 150 for threes, 
200 for a straight, 250 for a flush, 300 for a full house, 
350 for four of a kind, 400 for a straight flush, and 450 
for a royal flush. To this value is added the “value” of 
the highest card or pair, etc. For example, in line 560 
the computer searches for a “full house.” If one exists 
the control goes to line 810, where the initial value for 
a full house (V=300) is allocated. Then a search is 
made for the threes in the hand, and their character 
set value is added to the 300. This enables the computer 
to determine which hand wins by comparison of MV 
with YV. 

Now comes the computer’s turn. Its hand is subjected 
to the same sort and evaluation. Control then goes to 
the subroutine in line 900. Right at the start of this 
subroutine the variable T (the number of cards taken) 
is 0. The computer decides from the “value” of its hand 
(MV) which line within the subroutine it will go to. 
Should the “value” of the hand be greater than 200 (a 
straight) then T=0 and control returns to the main 
program. Depending on what the hand is, the computer 
now decides on how many cards to discard. If it has a 
pair it goes from line 950 (MV>50 but not >100) to 

line 1330, where the computer searches for the pair 
and then replaces the other three cards with cards from 
the pack (C$). On returning to the main program the 
value T is used to print the statement DEALER 
TAKES [T] CARDS to the screen. 

The computer again sorts its hand, changes M$(1) 
for printing, and determines the value of its new hand 
(lines 2690-2780). The computer’s card outlines are 
also printed (line 2750). 

The betting begins in line 2790. When you have 
placed your bet and it is “legal,” i.e. not higher than 
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the limit or than your credit, control goes to the sub- 
routine in line 1550. If you enter a @ for your initial 
bet the ZX81 presumes you want to throw in your cards, 
and starts a new deal. 

Depending on the value of its hand, the computer 
decides how far it will raise you and whether it will 
see you or throw in its cards. But beware—there is also 
a random “bluff” factor built in. Whichever way the 
betting goes the subroutine ultimately returns control 
to the main program at line 2930. 

On returning, the computer prints its hand to the 
screen, unless you have thrown in your cards. Control 
then passes to the subroutine in line 1900 where the 
hand is described (V$). This happens twice, once for 
your hand and once for the computer’s. On each return 
the description of the hand is printed under the appro- 
priate hand, e.g. “You have... V$...”. In line 3040 the 
computer finally decides who wins and prints the nec- 
essary comment to the screen. 

Between lines 3050 and 3130 the score is adjusted 
and a check is made to see whether you have no more 
money or whether you have broken the bank. The con- 
trol then passes to line 2180, where we start a new 
game. 

There is one other subroutine that I have not men- 
tioned, the one on line 1940. This is merely a delay 
loop and helps to “stall” while information is on the 
screen. 

Beginning at line 3140 are a few comments that are 
necessary during the game. The instructions are con- 
tained from line 3310 onward. 

If the program is too slow for your liking it is possible 
to speed it up considerably by letting the computer 
switch from SLOW to FAST and vice versa during the 
running of the program. If you want to use the FAST 
option I would suggest inserting the following lines. 

2175 FAST 
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2375 SLOW 
2515 FAST 
2785 SLOW. 


PLAYING THE GAME 
To start the program use the command RUN 2040. 
After asking whether you require instructions or not, 
the computer “shuffles” the pack and tells you it’s ready: 
READY PRESS N/L. After a slight pause your hand 
is displayed on the screen. You now have the choice of 
“throwing out” some of your cards (up to four). When 
you have entered the numbers of the cards you want 
to discard, press P for pass to continue. Your new hand 
will now appear on the screen. You will be asked to 
bet. If you want to throw in your cards enter @. To see 
the computer, enter the amount that you bet. To raise, 
enter twice that amount. 

For the rest the program is pretty self-explanatory. 
IT hope you enjoy the game as much as I do. Good luck. 


THE VARIABLES 

A$—The initial pack of cards 

C$—The random sequence of 18 cards from which the 
hands are dealt 

E$—A string used in the bubble sort routine to store 
the result 

K$—A string used to take and return various strings 
to and from subroutines 

Q$—A string consisting of 32 spaces which is printed 
over certain lines on the screen when it is necessary to 
clear them and not the whole screen 

X$—The abridged pack from which the card is dealt, 
and which is then updated 

V$—The string describing the type of hand 
M$(1)—The computer’s hand in its uncorrected state 
(except for sorting) 

Y$(1)—Ditto the player 
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M$(2)—The computer’s hand consisting of 10 charac- 
ters, each pair depicting a card 

Y$(2)—Ditto the player 

A—Used to tell the computer where to begin printing 
the card outlines 

B—Used to tell the computer where to begin printing 
the card values 

I—The value of the individual bets during the game. 
Can either be=@, =BTG (player sees computer) or 
= 2*BTG(player raises) 

J—Used to carry the value of a hand to the subroutine 
containing the strings describing the hands 

T—The number of cards discarded by the computer 
V—tThe value of a hand as determined in the subrou- 
tine starting at line 540 

Y—The player’s initial credit 

MV—The value of the computer’s hand 

YV—Ditto the player 

WL—Used to carry the amount placed on the table for 
the deal to various routines in order to update your 
credit 

BTC—the original bet by the player. 
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658 RETURN 
669 FOR L=1 TOG 7 STEP 2 
67@ IF KSilLiskg$(L+2) THEN GOTS 


3 
66@ NEXT L 
690 LET UsSe+CODE KR ILI 
78@ RETURN 


F1i® FOR L=i TO 3 STEP 2 
F2O@ IF KStLisk${L+2) THEN GOTO 
a74o 


740 LET Ysi@a+CODE Ke tL 


f Loi TG 5 STEP 2 
770 IF KSiLisk$iL+2) THEN GOTO 


78@ NEXT L 

780 LET UsiSs@+cCOoDE KsiLi 

S@@ RETURN 

81a FOR L=i To 5 STEP 4 

S20 IF KgiLi=sK#iL+2) AND K#{Li= 
KgiL+4) THEN GoTo 0640 


B+CODE KIL} 


S60 FOR L=i TO 3 STEP 2 
e7a IF KE IL) HRS TL 22) THEN LET U 
SSSQ+CODE Kg iL} 
SEQ NEXT L 
29a RETURN 


9230 IF v;>20@ THEN RETURN 


S40 IF U:18@ THEN GOTO 11538 

S590 iF ee THEN GOTO 123398 

960 IF (4) AND Ke te) aks 
(6) AND Kgsi Si GR K$l2i sket 
4) AND KS 1 AND Kt) okt 
10: GR ES ) AND KSfaI shel 
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Oi ORF Kg: AND Kgl2)1 =Kgis 
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HEN LET O8#! TO 4) =C$( TO 4) 
LET Kg=0% 


Jr>Le@ THEN GOTO 1268 

(Li sKH(S) AND KGES) Ks 
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1840 NEXT L 
1650 GOSUB ig4ae 

136@ PRINT AT 19,.6;0%8;AT 19,0; "I 
SEE YOU...-" 
1678 RETURN 

1860 PRINT AT i 
GO YOU SEE NE... 
169@ RETURN 
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AND Js1d49 AND JU<+28 
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205@ LET Ag="SCSCACSCHCTCSCSCACB 
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2@eg LET e=* 


2B7e8 DIT 
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2iee REM 


Zs ea 
2138 PRINT AT 22,06; "DO YOU REGUT 
RE DETAILS ?iy OR NI" 
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252@ LET Ke=¥sii) 

2530 GOSUE 8208 

2540 LET ¥Ystii sks 

2558 GOSUB 2228 

e560 LET Ystai sks 

2570 LET =i 

2580 GOSUB a458 

2500 PRINT AT 7,.8:08 

2608 PRINT AT 21,80;08;AT 21.6, °6 
ET TILL NOU s5* 

#26818 GOSUE 2 

26208 LET 

2658 Gok 

#6402 LET 

2652 LET 

S660 CO: 

2678 62: 

2550 PRI? 9,8 
; “BEALER cree" 
AWD Ted) 

2690 LET 

270@ GOS 

2716 LET 

eree GOS 

2738 LET 

e740 LET 

275 Si 

2758 

27? 

27s 

279 

220 RONT 

GUR T oF 

2E10 GOSUR 2828 

2820 INPUT BTG 

2#ES@ LET &BTG=INT BTG 

24a IF BrG=@ THEN GOTO 31598 
2650 IF BTG:Y OF BTG:258 THEN PRI 
NT AT 21,8; 0% 


2660 PRINT AT 21,0; ("YOU BO NOT 
HAVE THAT MUCH 2." ANG BTGsyi4t" 
LIMIT I5 $25" AND BTG+25: 
2872 IF BrG:yY GR BTG:25 THEN GOS 
—T 
t 


GeY¥ OR BTG?25 THEN GOT 
2690 IF BrosyY OF Y-BTG<«<BTG THEN 


290@ LET yY=¥-BTG 
2910 LET WLeeBToG+S 
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Brain Games 


FLIP 


Flip is an intriguing game which provides quite a bit 
of mental stimulation. You'll see a random mix of as- 
terisks and solid squares on a 3 < 3 grid when you 
start the game. You have to try to end up with eight 
asterisks surrounding a black square in the middle of 
the grid. You can only “flip” (a term to be described 
shortly) an asterisk. You move by entering the number 
of the piece you wish to flip. Flipping a corner piece 
causes those adjoining it to change to their opposites 
(that is, an asterisk becomes a solid square, and vice 
versa). Flipping a middle piece on one side changes the 
two either side of it, and flipping the middle one changes 
the middle piece on all four sides. The piece you flip 
also changes. 

The number of moves you have taken so far is dis- 
played. The program will pause at the end of a game 
to tell you how many moves it took you to solve it, and 
then you'll be given a new starting position. 
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INT AT 3,8, "WHICH ONE To 


PR 
121 IF INK aan 120 
idee LET A Ws 
123 PRINT AT 2,15; "°F" 
ted PRINT AT 3.15; "9" 
226 IF Ags" TH 
le? LET iL A 
123 IF fo 125 
129 PR = 


238 GOSU ais 

i490 GOTG 28 

178 STOP 

128 PRIN “3o 
HRS (Ati: 30 " 
;CHRS (A 

2@a PRI! ey 
CHR (Aid: 3 
“TCHR (At 

2i@ PRINT a 
CHR (ACF) 3° 
“TOCHRS (Af 

#220 RETU 
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Gwyn Dewey’s Codes program is a game in which num- 
bers and letters are jumbled up, and you have to try to 
guess them in sequence. When the prompt appears, you 
indicate your guess of one of the hidden numbers by 
entering the number above the chosen gray square. 
There is a time limit, so do not linger too long in making 
your decision. 
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11 PRINT TAB 2: "TOG LONG OR TH 
TS WILL BEAT” 
le PRINT TAB 2: "YOU (GULFI. I 
HRUE WARNED You." 
13 PRINT TAB 3; “ENTER LEVEL (1 
EARASY-16 HARD” 
14 
iS THEN GoTo 14 
Le Let 
i? 2; °"''Gooob LUCK 
13 FOR 
13 NEX 
Sa cls 
21 LET Nes?" 
ea LET Ag="" 
23 LET Bs=' 
25 FOR &€xsi Toa L 
2S LET Neshise+*." 
2S LET AS=AS+CHRS +25) 
2Q LET 8 $=-6$+" " 
25 NEXT x 
4@ RANG . 
BQ FOR A=l TO LEN As 
6@ LET B=INT (RNOG+¢LEN ASI +1 
7O@ LET BS tai =AgiBs 
SQ LET AS=AS$! TO B-1)4+AS(E+i T 
ood 
908 WEXT A 
18@ LET CSsCHRs 23 
1@1 PRINT AT 18,0; 
1@2 FOR Ss TG kL 
183 PRINT “Ro: 
164 NEXT = 
L185 PRINT AT 11,8; 
106 FOR #21 TOL 
167 PRINT CHRS (242813 " "; 
1898 WEXT x 
118 INPUT i& 
Lea IF Cope OR CODE O$>L+ 
a2 THEN sara 
13@ LET ¢ §-25 
135 LET & i 
1408 IF BS EN GOTO 286 
150 PRINT @,(C#21-2;581C) 
160 FOR I= ta] 
178 NEXT 
180 PRINT 18, (C*¥2) -2; '#" 
1390 GoTsa 
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Can you discover the byte in your 2114 chip that has 
a bug in it before it can get into your program? Can 
you succeed where others (I!) have failed? Here is a 
game by Chris Callender to see if you can. A brand 
new 2114, made in Japan, will appear on the screen, 
along with instructions when you press RUN. 

Pressing any key causes your scanner to appear as 
a white dot on the 2114. Move it around using 5, 6, 7, 
and 8 (and moving in the direction of the arrows on 
those keys), and as you do so, the signal on your slightly 
inaccurate bug-detector will change. If you manage to 
find the bug, you'll get the message JUST IN TIME 
flashing on the screen. Pll leave it to you to find out 
what happens if you fail. If—after a few games—you 
wish to make it harder, change the 83 in line 295 into 
a smaller number. 


2 FAST 
1@ FOR A=1 To & 
26 PRINT AT A.@ 
38 NEXT A 
42 FOR A=a TO 635 
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S@ IF AeS=INT (Ae) THEN PLOT 
At2,43 

6@ IF AvS=INT iAvS) THEN PLOT 
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348 PRINT AT 13,0; "BUG DETECTOR 
£1-1080; =";5 
_35@ PRINT “ iTHIS DETECTOR NEED 


Ua 


_355 PRINT © e1aeIT IS INACCU 


1 AND PX>@ THEN LET 
fg=°H° GND P¥>23 THEN LE 
s 


IF 4 
T PYsPyY-i 
426 IEF Ags="7" AND PYide THEN LE 
T PyYsPyY4l1 
43 IF As="S" AND PX<*6S THEN LE 
T PR=PX+1 
48 NEXT © 
Sa CLS 
68 PRINT AT 223,18; "TOO LATE" 
78 PALISE isk 
6@ FOR A Oo 196 
S@ RAND | = 
aa i 
1 - 
g 
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PRINT AT 11,10; "4UST IN TIM 
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1820 PRUSE 38 

i958 PRINT AT 11,10; "Sees 
1846 PRUSE 22 
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Word and Letter 
Games 


ANAGRAMS 


Anagrams, by Ken Mahogany, shows the flexibility of 
your computer’s string handling. 

The program asks you to enter a word (such as your 
first name). The computer then will produce every con- 
ceivable combination of the letters in your name. The 
sample run before the program listing shows some an- 
agrams of the programmer’s name. 
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MS 
MEHOGANY 1982 
TER YOUR WORD’ 
Ag 

LET At NT 

FOR Z=: N 

LET A(Z} SINT 

FOR J=J Z 

TF i+ ce | 

NEXT J 

NEXT Z 

LET 8%="° 

FOR B21 TO N 

LET B$=B$+A$ (AE) ) 

NEXT B 

SCROLL 


eoTo 5 6a 


SPECTRAL HANGMAN 


This is a fairly straightforward game in which the com- 
puter chooses a word from its vocabularly, and then 
gives you a limited number of guesses (based on the 
length of the word) to get it right. The vocabulary can 
easily be changed or extended. Spectral Hangman was 
written by Ken Mahogany. 
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takes your 


name (or any string up to 16 letters long, with spaces 
and/or graphics) you care to enter, and produces a con- 
tinuously unfolding, and evolving, “wallpaper” pat- 


This program, written by Mark Charlton, 
tern, as the sample run shows. 
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POETRY 


This program turns your T/S 1000 into a Walt Whit- 
man...almost. Choosing words at random from the lines 
from 100 on, and spacing them out at random using 
lines 20 to 30, the program manages to join phrases 
together surprisingly well. 

The program checks (line 53) to ensure that the same 
word is not used twice in a row, and continues to add 
words to a line (lines 60 and 80) until the line would 
overflow. At this point, it prints the line to the screen 
and starts constructing another one. 

Once you’ve run this a few times, change the words 
from lines 100 to 215, adding words and phrases of your 
own choice. You'll find the “poems” are more satisfac- 
tory if the words used are related to a central topic. 
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TILE CRAZY 


Ken Mahogany’s game Tile Crazy puts you in command 
of a4 x 4 grid, which holds the letters of the alphabet. 
You have to arrange them in alphabetical order, as 
follows: 

ABCD 

EFGH 

IJKL 

MNO 

... with a space in the bottom right-hand corner. You 
move by entering’a number (there is a code beside the 
printout) of the letter you wish to move, then the square 
into which you wish to move it. You will not be allowed 
to cheat. The program counts how many moves you’ve 
made. You should be able to do it in 40 or so moves. If 
you wish to change the order of the letters at the start 
of the game, change the contents of line 345. 
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WORDSQUARE 


In this program, you enter a number of words which 
the computer then hides on a grid, whose dimensions 
depend upon the length of the longest word in the list. 
If you find the task of trying to discover where each 
word is hiding too difficult, the computer will obligingly 
pick them out for you, in inverse letters. 


THE PROGRAM 

The program has been designed in modules in an at- 
tempt to make it easy to understand and modify the 
flow. 

Lines 10 to 260 are the initialization process. The 
words which are to be used are stored in the string 
array CS. The longest word must be input first so that 
the size of the array can be determined. A check is made 
in line 170 to make sure that none of the words is too 
long for the array. If this is the case then the word is 
not accepted and a new word must be input. 

Lines 200 to 260 print the wordsquare grid onto the 
screen. 

Lines 270 to 550 are the main part of the program 
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and actually fit the words into the square. A two-di- 
mensional array is first set up to store the co-ordinates 
finally chosen for the characters in each word (H$). The 
current word is assigned to variable J$ and random 
starting co-ordinates (X and Y) and displacements (Z 
and W) are chosen in lines 310 to 370. 

Lines 390 to 480 single-step through the word, fitting 
each character into the square and storing its co-or- 
dinates temporarily in the two-dimensional array K. If 
the word runs off the square when the co-ordinates are 
incremented by the displacement, or the chosen co-or- 
dinates are already filled by an unsuitable letter from 
another word, the current word is started again with 
new X,Y,Z, and W variables. Only when the current 
word has been completely fitted in will its characters 
be entered in the final array and be printed to the 
screen by lines 490 to 540. 

Lines 560 to 650 fill all the vacant spaces on the grid 
with random letters. If you do not wish to see the words 
as they are fitted into the grid, you can specify this at 
the start. The program will then only print in the words 
as it generates the random letter. 

Lines 700 to 750 will show you the positions of the 
words when you get bored of looking for them by in- 
versing them on the square when requested to do so. 

There is also a visual indication of the progress made 
on each word as the program is running. 


VARIABLES USED 
i) Simple numerical variables: 
A—number of words in the list. 
D—size of the square (length of longest word 
plus 2) 
X—X co-ordinate 
Y-—Y co-ordinate 
Z—displacement to X co-ordinate 
W—displacement to Y co-ordinate 
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ii) Simple string variables; 
BS—longest word 
DS—current word input 
JS&—current word in square 
P&—random letter 
et for secret generation of square 
Q&—set for printing of answers 
iii) Numerical arrays; 
K—temporary store of co-ordinates 
iv) String arrays 
CS—list of words 
H$—store for final positions for each letter 


All other variables are the control variables for loops 
involved in input of word lists, printing to the screen, 
or arrays or character fitting. 

The longest word in the list should have no more 
than 18 letters or the grid will not fit onto the screen. 
About 20 words of varying length can be fitted in five 
or ten minutes. A longer list of words can result in a 
very frustrating wait. 

It is a good idea to enter the words in descending 
order of length, as this will speed up operation. The 
program is fascinating to watch in operation. Word- 
square was written by J. Elliott. 
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Titles of Related Interest from MENTOR and SIGNET 
(0451) 


CJ COMPUTER CAPERS: Tales of Electronic Thievery, Embez- 
zlement, and Fraud by Thomas Whiteside. The new superstar of 
white collar crime, their take is often in the millions and their victims 
are banks, corporations, the general public and the U.S. government. 
Based on the acclaimed New Yorker series, this book chronicles the 
most spectacular exploits of that new breed—computer criminals. 

(621735—$2.95) 

OO =EASY-TO-UNDERSTAND GUIDE TO HOME COMPUTERS by the 
Editors of Consumer Guide. This handbook cuts through the 
tech-talk to tell you clearly—in plain English—exactly what computers 
are, how they work, and why they’re so amazingly useful. Includes 
information needed to understand computing, to use computer equip- 
ment and programs and even do your own programming. A special 
buying section compares the most popular home computers on the 
market. (120310—$3.95)* 

(1) KEN USTON’S GUIDE TO BUYING AND BEATING THE HOME 
VIDEO GAMES by Ken Uston. The complete consumer’s and 
player's guide to all the video systems and cartridges that are cur- 
rently available to the home video addict. (119010—$3.95) 

C) KEN USTON’S HOME VIDEO '83: The 20 Best New Games 
and How to Beat Them ... Plus 5 Great Classics! The one 
guide that gives you all the information you need to know to get the 
most playing enjoyment for your money. (120108—$2.95)* 


*Prices slightly higher in Canada 


Buy them at your local bookstore or use this convenient coupon for ordering. 


THE NEW AMERICAN LIBRARY, INC., 
P.0. Box 999, Bergenfield, New Jersey 07621 


Please send me the books | have checked above. | am enclosing $_________ 
(please add $1.00 to this order to cover postage and handling). Send check 
or money order—no cash or C.0.D.’s. Prices and nurnbers are subject to change 
without notice. 


Name———-__— 
Address 


City Zip Code 


State _.___ 
Aliow 4-6 weeks for delivery. 
This offer is subject to withdrawal without notice. 


THE TIMEX SINCLAIR 1000™ AND 1500™ 
HAVE BROUGHT THE POWER OF THE 
COMPUTER AGE INTO OVER A MILLION HOMES. 
And now hours of fun and entertainment 
await you at the touch of a keyboard with these 
easy-to-set-up programs for: 


MOVING GRAPHIC GAMES LIKE 
GALAXY PATROL AND BALLOON BUSTER 


DRIVING GAMES LIKE ALLEY DRIVER 
AND SQUEEZER IV 


BOARD GAMES AND SIMULATIONS LIKE 
ETCHASKETCH AND MUSIC 


WORD AND LETTER GAMES LIKE 
ANAGRAMS AND TILE CRAZY 


Whether you like thought games or action games, roaming 


the far reaches of space or the ocean depths, drawing 
pictures or solving puzzles, you'll find something to 
challenge your game-playing skills in— 


51 GAME PROGRAMS FOR 
THE TIMEX SINCLAIR 1000" AND 1500° 
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ISBN 0-451-12e598-3 


